﻿Partial Public Class FeedItem

    Private _RedirecTo As String
    Private _BaseFeed As Cintie.Web.Feed

    Public Property RedirectTo() As String
        Get
            Return _RedirecTo
        End Get
        Set(ByVal value As String)
            _RedirecTo = value
        End Set
    End Property

    Public Property BaseFeed() As Cintie.Web.Feed
        Get
            Return _BaseFeed
        End Get
        Set(ByVal value As Cintie.Web.Feed)
            _BaseFeed = value
        End Set
    End Property

    Public Sub New(ByVal Feed As Cintie.Web.Feed)

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        _RedirecTo = Feed.RedirectTo
        _BaseFeed = Feed

        ' Add any initialization after the InitializeComponent() call.
        TextBlock1.Text = Feed.Header
        TextBlock2.Text = Feed.Author & " (" & Feed.Date & ")"

        Try
            Image1.Source = WPFFunctions.ConvertImage(Feed.Image, 150, 150)
        Catch ex As Exception
        End Try
    End Sub

End Class
